Computer Life: SuperPac/SuperPac (Computer Life Magazine)(Ziff-Davis)(1995).ISO/pc/demos/nmmdemo/nmmdemo.exe/EVU3000.DXR/00167.ls

Text File | 1995-04-27 | 206 b | 9 lines

on exitFrame
  set thetime to the timer
  set newVal to float(float(thetime) / float(120) * float(255))
  set the volume of sprite 8 to max(newVal, 55)
  if newVal < 255 then
    go(the frame)
  end if
end